unused functions/check_zero.R

check_zero <- function(sample, N, n, M, nprobs, pip) {
  sample <- as_tibble(sample)
  if (sample$n10 == 0 & sample$n11 == 0) {
    sample$n10 <- 0.01
    sample$n11 <- 0.01
  }
  sample
}
BriceonWiley/comparingCIs.R documentation built on Aug. 17, 2020, 4:42 a.m.